home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / D-Demos / (c)d2.d64 / nuclear demo.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  17KB  |  469 lines
  1. 0 REM NUCLEAR DEMO (FOR COMMODORE 64)         BY DEREK LEE
  2. 1 IF PEEK(49152)<>120 THEN LOAD"DEMO.C000.D",8,1
  3. 2 POKE49198,38:POKE49260,12
  4. 5 DIM PARA$(50)
  5. 6 REMREADAA,BB:FORZ=AATOBB:READW:POKEZ,W:NEXT
  6. 7 REMDATA 826,849,162,128,160,0,132,33,134,34,177,33,73,128,145,33
  7. 8 REMDATA 200,208,247,232,224,132,208,240,96,0
  8. 9 CD$=""
  9. 10 CU$="[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
  10. 20 GOSUB555: REM TITLE
  11. 30 GOSUB1600: REM NARRATION
  12. 94 RUN
  13. 95 REM
  14. 96 REM     ************************
  15. 97 REM  ******  SINGLE FISSION  ******
  16. 98 REM     ************************
  17. 99 REM
  18. 100 POKE53281,11:POKE53280,11
  19. 105 S1$=""
  20. 110 A$=""
  21. 120 S2$=""
  22. 130 AA$=""
  23. 140 OS$="[129][169] [223][146][157][157][157][223] [146][169][157][157][157]":OS$=OS$+OS$
  24. 150 BB$=""
  25. 160 FR$="[158][169] [223][157][157][157][146][223] [146][169]"
  26. 170 SP$="   [157][157][157]   "
  27. 180 NU$="[154][169] [223][157][157][157]   [157][157][157][146][223] [146][169]"
  28. 190 PRINT"[147]"TAB(20)NU$
  29. 210 FORX=1464TO1484
  30. 220 POKEX-1,32
  31. 230 POKEX,46
  32. 240 FORI=1TO50:NEXTI
  33. 250 NEXTX
  34. 260 POKEX-1,224
  35. 270 FORX=1TO6
  36. 280 PRINT"[147]"TAB(20)OS$:FORI=1TO20:NEXTI:POKE53281,8
  37. 290 PRINT"[147]"TAB(20)NU$:FORI=1TO10:NEXTI:POKE53281,11
  38. 300 NEXTX
  39. 310 PRINT"[147]"TAB(21)FR$
  40. 320 PRINT""TAB(21)FR$
  41. 330 N1=1448:N2=1488:N3=1528
  42. 340 FORI=0TO15STEP2
  43. 350 POKEN1+I,46:POKEN2+I,46:POKEN3+I,46
  44. 360 POKEN1+I-2,32:POKEN2+I-2,32:POKEN3+I-2,32
  45. 370 NEXTI
  46. 380 POKEN1+I-2,32:POKEN2+I-2,32:POKEN3+I-2,32
  47. 390 GOSUB410:POKE53281,6:POKE53280,6
  48. 391 SENT$="[147][154] A GREAT DEAL OF ENERGY IS RELEASED":GOSUB2000
  49. 392 SENT$=" IN THE FORM OF HEAT.":GOSUB2000:DD=250:GOSUB4000
  50. 393 SENT$=" THIS HEAT IS USED TO PRODUCE STEAM.":GOSUB2000:GOSUB4000
  51. 394 SENT$=" ALSO, NOTICE THAT MORE NEUTRONS":GOSUB2000
  52. 396 SENT$=" WERE KNOCKED OUT AFTER THE":GOSUB 2000
  53. 397 SENT$=" COLLISION AND VIBRATION ...":GOSUB2000:DD=750:GOSUB4000
  54. 400 RETURN
  55. 405 REM
  56. 406 REM    ************************
  57. 407 REM ******  MOVE FRAGMENTS  ******
  58. 408 REM    ************************
  59. 409 REM
  60. 410 PRINTS1$;A$;FR$;S2$;A$;FR$
  61. 420 PRINTS1$;A$;SP$;S2$;A$;SP$
  62. 430 PRINTS2$+"";A$+"";FR$;S2$+"";A$+"";SP$
  63. 440 PRINTAA$;BB$;FR$;AA$;BB$;SP$
  64. 450 PRINTS2$+"";A$+"";FR$;S2$+"";A$+"";SP$
  65. 460 PRINTAA$+"";"";FR$;AA$+"";"";SP$
  66. 470 PRINTS2$+"";A$+"";FR$;S2$+"";A$+"";SP$
  67. 480 PRINTAA$+"";"";FR$;AA$+"";"";SP$
  68. 490 PRINTS2$+"";A$+"";FR$;S2$+"";A$+"";SP$
  69. 500 PRINTAA$+"";"";FR$;AA$+"";"";SP$
  70. 510 PRINTS2$+"";A$+"";FR$;S2$+"";A$+"";SP$
  71. 520 PRINTAA$+"";"";FR$;AA$+"";"";SP$
  72. 530 PRINTS2$+"";A$+"";FR$;S2$+"";A$+"";SP$
  73. 540 PRINTAA$+"";"";FR$;AA$+"";"";SP$
  74. 550 PRINTS2$+"";A$"";FR$;S2$+"";A$+"";SP$
  75. 552 RETURN
  76. 555 REM
  77. 556 REM    ********************
  78. 557 REM ******  TITLE PAGE  ******
  79. 558 REM    ********************
  80. 559 REM
  81. 560 POKE53265,27
  82. 565 PRINT"[147][144]";TAB(5);"[169]  [146]                [213]
  83. 570 [153][163]5);" WAIT  TOWAITSTEP(null)TANRIGHT$==RIGHT$==RIGHT$(null)TANRIGHT$(null)TAN<(null)TANRIGHT$(null)TANRIGHT$(null)TANRIGHT$
  84. 580 PRINTTAB(5);" [146]   [223][146][221] [221][221][221][221][221][221][221][221][160][221][221][160][221][221][160][221][221]  [171][192][203]
  85. 590 [153][163]5);"(null)  WAIT  MID$TAN(null)(null)MID$MID$(null)MID$MID$MID$TAN(null)MID$TAN(null)MID$TAN(null)(null)  MID$TAN(null)
  86. 600 PRINTTAB(15);"[164][164][164]
  87. 610 [153][163]14);"STEP   (null)WAIT     STEP WAITINT
  88. 620 PRINTTAB(14);" [146][169][163][223] [146][165]   [169]  [146][181]
  89. 630 [153][163]13);"+ WAITFNTO     STEP WAITSTEP WAITINT
  90. 640 PRINTTAB(13);"[161]    [223][146]  [169] [146][169]  [146][181]
  91. 650 [153][163]13);"GET WAITSTEPTAB((null) WAITSGN        WAIT
  92. 660 PRINTTAB(13);"[182] [146][165] [167] [146][181]      [146][181]
  93. 670 [153][163]13);"+ (null)WAITTOSTEP WAITSGN      WAITINT
  94. 680 PRINTTAB(14);"[223]   [146][169]       [146][181]
  95. 682 [141] 950: [143] BORDER
  96. 684 [142]
  97. 685 [143]
  98. 686 [143]     *******************
  99. 687 [143]  ****** POWER PLANT ******
  100. 688 [143]     *******************
  101. 689 [143]
  102. 690 TEST[178]0:[153]"LOAD";:[151]53281,9:[151]53280,6
  103. 695 [153]"      WAIT(null)SPC(SPC(                               WAIT";
  104. 700 [153]"       WAIT(null)SPC(SPC(                              WAIT";
  105. 710 [153]"        TAB(FREWAITSPC(                             WAIT";
  106. 720 [153]"            FREFRENEWNEWNEWWAITFREFREFRETAB(TAB(FREFRENEWNEWNEWRNDWAITSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(";
  107. 730 [153]"SYSTOTOTOTO                       INTWAITSPC(           ";
  108. 740 [153]"SYS    WAITFN             SYSSTEP   (null)WAIT    INTWAITSPC(           WAIT";
  109. 750 [153]"SYS    WAIT(null)      OPENSTEP  (null)WAIT  SYSSTEPTOTOTOTOTO(null)WAIT   SGNWAITSPC(           ";
  110. 760 [153]"SYS     WAIT      OPEN    WAITTOTO LENLENLENLENLEN WAIT   FNWAITSPC(           ";
  111. 770 [153]"SYS     WAIT(null)     OPENWAIT(null)  WAITSTEP SGNSYS TAB(TAB(TAB(TAB(TAB( WAIT  THENSPC(SPC(           ";
  112. 780 [153]"SYS      WAIT         CLOSEFNSYS(null)     WAITSTEP  +SPC(SPC(           ";
  113. 790 [153]"SYS      WAIT(null)   OPENSTEP  (null)WAIT  FN SYSWAIT(null)   WAITSTEP   ABSSPC(SPC(           ";
  114. 800 [153]"SYS       WAITFN  OPEN    WAITTO(null)FN         GETWAITSPC(            ";
  115. 810 [153]"SYS       WAITFN  OPEN(null)  WAITSTEP  FNCLOSESTOP====WAITPOSPOSPOS INT             ";
  116. 820 [153]"SYS       WAITFN        SYSFN STOP(null)(null)(null)(null)  WAITSTOPGET INT            WAITSPC(";
  117. 830 [153]"SYS       WAITFN OPENSTEP  (null)WAIT  (null)FNCLOSESTOP(null)(null)(null)(null)  WAITSTOPGETFREFN           WAITSPC(SPC(";
  118. 840 [153]"SYS       WAITFN OPEN    WAITTO(null) FN STOP(null)(null)(null)(null)  WAITSTOPGETTHENSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(";
  119. 850 [153]"SYS       WAITFN OPEN(null)  WAITSTEP   FNCLOSESTOP>>>>FREFREFRE SPC(SPC(SPC(           ";
  120. 860 [153]"SYS       WAITFN       (null) (null) PEEK(null) (null)  ABSSPC(             ";
  121. 870 [153]"SYS       WAITFNOPENSTEP  (null)WAIT CLOSE(null)  FN PEEK(null)  FN GETWAITSPC(             ";
  122. 880 [153]"SYS       WAITFNOPEN    WAITTO(null)   FN PEEK(null) (null)  INTWAITSPC(             WAIT";
  123. 890 [153]"OPEN  TAB(TAB((null)  CLOSE(null)  WAITSTEP     FN PEEK(null)(null)   INTWAITSPC(             WAIT";
  124. 900 [153]"OPEN     (null)TOTOTOTOTOTOTOTOTOTO(null)(null)TOTO(null)   THENSPC((null)             WAIT";
  125. 905 [153]"                                        ";
  126. 909 [153]"    NUCLEAR POWER PLANTWAIT AERIAL VIEW     WAIT";
  127. 910 [153]"                                       WAIT";:[151]56295,5:[151]2023,224
  128. 911 RE$[178]"FORSTEP  (null)CMDCMDCMDCMD    CMDCMDCMDCMDWAIT(null)  WAITSTEP"
  129. 912 [153][200](CD$,7);[163]11);RE$:[129]Y[178]1[164]75:[130]
  130. 913 [153][200](CD$,11);[163]10);RE$:[129]Y[178]1[164]75:[130]
  131. 914 [153][200](CD$,15);[163]9);RE$:[129]Y[178]1[164]75:[130]
  132. 915 [153][200](CD$,19);[163]8);RE$:[129]Y[178]1[164]75:[130]
  133. 916 [139] TEST[179]4 [167] TEST[178]TEST[170]1:[153]"";:[137]695
  134. 917 DD[178]1000:[141]4000
  135. 920 [153]"LOAD":[151]53281,6:[142]
  136. 950 [143]
  137. 960 [143]     ********************
  138. 970 [143]  ****** TITLE BORDER ******
  139. 980 [143]     ********************
  140. 990 [143]
  141. 994 X[178]2:Y[178]7
  142. 995 [129]J[178]2[164]11[169]2:[151]53281,J:[151]53280,J
  143. 1000 [129] I[178]1 [164] 40 [169]2
  144. 1010 [151]1023[170]I,81:[151]55295[170]I,X:[151]1024[170]I,81:[151]55296[170]I,Y
  145. 1020 [151]2024[171]I,81:[151]56296[171]I,X:[151]2023[171]I,81:[151]56295[171]I,Y
  146. 1030 [130]I:[151]53281,J[170]1:[151]53280,J[170]1
  147. 1040 [129] I[178]1[164]23 [169] 2
  148. 1050 [151]1984[171]40[172]I,81:[151]56256[171]40[172]I,X:[151]1984[171]40[172](I[170]1),81:[151]56256[171]40[172](I[170]1),Y
  149. 1060 [151]1063[170]40[172]I,81:[151]55335[170]40[172]I,X:[151]1063[170]40[172](I[170]1),81:[151]55335[170]40[172](I[170]1),Y
  150. 1070 [130]I
  151. 1080 Z[178]X:X[178]Y:Y[178]Z:[130]J
  152. 1085 [151]53281,6:[151]53280,6
  153. 1090 [142]
  154. 1092 [143]
  155. 1093 [143]     **********************
  156. 1094 [143]  ****** CHAIN REACTION ******
  157. 1095 [143]     **********************
  158. 1096 [143]
  159. 1100 [153]"LOAD";:[151]53281,12
  160. 1110 M$[178]"         WAIT":N$[178]"(null)RIGHT$CMDCMDMID$(null)"
  161. 1120 [129]I[178]1[164]24
  162. 1130 [153][163]15);M$      
  163. 1140 [130]
  164. 1145 [153][163]15);M$;""
  165. 1170 Z[178]0:[129]J[178]1[164]2:[129]I[178]1[164]10
  166. 1180 X[178][181]([187](1)[172]11[170]1):Y[178][181]([187](1)[172]7)
  167. 1190 [153][200](CD$,X[172]2);[163]Z[170]Y[172]2);N$
  168. 1200 [130]I:Z[178]24:[130]J
  169. 1210 [153][200](CD$,8);"               ":[153]"               "
  170. 1220 [153][200](CD$,8);[163]8);N$
  171. 1230 [153][200](CD$,20);[163]10);N$[170]"CMDCMD  CMDCMD  "
  172. 1240 [153][200](CD$,10);[163]24);"              ":[153][163]24);"              "
  173. 1250 [153][200](CD$,10);[163]30);N$
  174. 1290 [143] ...... MOVE NEUTRONS ......
  175. 1300 N1[178]0:N2[178]24
  176. 1310 [153][200](CD$,8);[163]N1);" ."
  177. 1320 N1[178]N1[170]1
  178. 1330 [139]N1[177]5[167][153][200](CD$,N2);[163]11);" ONCMD.":N2[178]N2[171]1
  179. 1340 [129]I[178]1[164]75:[130]:[139]N1[179]8[167]1310
  180. 1350 [129]I[178]1[164]13:[151]53281,8:[129]J[178]1[164]20:[130]:[151]53281,11:[129]J[178]1[164]10:[130]J:[130]I
  181. 1360 [151]53281,12:[153][200](CD$,7);[163]8);"(null)RIGHT$CMDCMD  CMDCMDMID$(null)":[141]1370:[137]1390
  182. 1370 [153][200](CD$,20);[163]10);"*RNDWAITCMDCMDLOGWAITCOS":[129]T[178]1[164]20:[130]T
  183. 1380 [153][200](CD$,20);[163]10);"*WAITRNDCMDCMDLOGCOSWAIT":[142]
  184. 1390 [129]I[178]9[164]14
  185. 1400 [153][200](CD$,8);[163]I);" :":[141]1370:[130]I
  186. 1410 [153][200](CD$,8);[163]I);" WAIT":[141]1370
  187. 1420 [129]X[178]1[164]7:I[178]I[170]1:Y[178][181]([187](1)[172]15)[170]2
  188. 1430 [153][200](CD$,Y);[163]I);".WAIT":[141]1370
  189. 1440 [153][200](CD$,Y);[163]I);" WAIT":[141]1370:[130]
  190. 1450 [153][200](CD$,11);[163]23);".WAIT":[141]1370
  191. 1460 [153][200](CD$,11);[163]23);" WAIT":[141]1370
  192. 1470 [129]I[178]25[164]29:[153][200](CD$,11);[163]I);" .":[141]1370
  193. 1480 [129]J[178]1[164]35:[130]J:[130]I
  194. 1490 [153][200](CD$,10);[163]30);"(null)RIGHT$CMDCMD  CMDCMDMID$(null)":[141]1370
  195. 1500 [129]I[178]1[164]10:[151]53281,8:[129]J[178]1[164]20:[130]:[151]53281,11:[129]J[178]1[164]10:[130]J:[130]
  196. 1505 [151]53281,12:[141]1370
  197. 1510 [129]I[178]31[164]37
  198. 1520 [153][200](CD$,11);[163]I);" :":[141]1370:[130]I
  199. 1530 [153][200](CD$,11);[163]38);" "
  200. 1540 [151]53281,6:[153]"CONT":[142]
  201. 1600 [143]
  202. 1610 [143]     ******************
  203. 1620 [143]  ******  NARRATION ******
  204. 1630 [143]     ******************
  205. 1640 [143]
  206. 1645 [153]"LOAD";
  207. 1650 [135] SENT$
  208. 1660 [141] 2000:[143]  PRINT ONE LETTER                           AT A TIME
  209. 1670 DD[178]500:[141]4000
  210. 1700 [143]  SCROLL UP
  211. 1710 [153]""
  212. 1715 [151]53265,23:[129]J[178]1[164]33
  213. 1717 [135]SENT$
  214. 1719 [139] SENT$[179][177]"*"[167]1725
  215. 1720 [153][200](CD$,25);"                               ON":[151]174,9:[158]12[172]4096
  216. 1723 [129]D[178]1[164]1000:[130]D:[130]J
  217. 1725 [151]174,1:[158]12[172]4096
  218. 1727 [153][200](CD$,25);[163]9);SENT$;"ON"
  219. 1730 [151]174,1:[158]12[172]4096
  220. 1740 [153][200](CD$,25);"                                    ON"
  221. 1760 [130]J
  222. 1770 [151]174,15:[158]12[172]4096:[151]53265,27
  223. 1780 [135] SENT$:[141]2000
  224. 1790 [131]"LOADDEF WHAT FORMAKES SYSA NUCLEAR PRINTPOWER CONTPLANT CLRTICK?"
  225. 1800 [131]"CONT      BECAUSE OF       "," SEVERAL INSTANCES OF  "
  226. 1802 [131]"  ADVERSE PUBLICITY,   ",*
  227. 1805 [131]"  NUCLEAR ENERGY IS    ","STILL REGARDED BY MANY "
  228. 1810 [131]"   AS AN UNRELIABLE    ","   SOURCE OF POWER.    ",*
  229. 1812 [131]"    UNFORTUNATELY,     "
  230. 1815 [131]"    MANY ALSO HAVE     "," A MISCONCEPTION AS TO "
  231. 1820 [131]"HOW THE NUCLEAR PROCESS","    ACTUALLY WORKS.    ",*
  232. 1822 [131]" THE FISSION PROCESS   "
  233. 1825 [131]"    AS USED IN THE     ","    CANDUWAIT REACTOR,     ",*
  234. 1830 [131]"     JUST USES A       ","  DIFFERENT METHOD OF  "
  235. 1832 [131]"    CREATING STEAM     "
  236. 1835 [131]"   TO TURN TURBINES.   ",*,"     IT DOES NOT       "
  237. 1837 [131]"      FORMELT DOWNCONT         "
  238. 1840 [131]"   EVERY SIX MONTHS    ",*,"     NOR DOES IT       "
  239. 1842 [131]"     MAKE PEOPLE    "
  240. 1845 [131]"   SYSGLOW IN THE DARKCONT.    ",*,"                       "
  241. 1855 [131]"HERE'S HOW IT REALLY WORKS  ..."
  242. 1856 [129]I[178]1[164]1000:[130]I
  243. 1860 [129] P[178]1[164]9
  244. 1870 [135] SENT$
  245. 1875 [153]"LOAD"
  246. 1880 [141] 2000:[143] PRINT LET. BY LET.
  247. 1885 DD[178]750:[141]4000
  248. 1890 [145] P [141] 685,3500,2400,2100,2600,95,2950,1092,3100
  249. 1900 [130]P
  250. 1905 SENT$[178]"LOAD ... AND THAT'S HOW IT REALLYWAIT WORKS!":[141]2000
  251. 1910 [131] "THE POWER PLANT CONSISTS OF SEVERAL     REACTORS"
  252. 1915 [131] "INSIDE EACH REACTOR, FISSION TAKES PLACEIN THE CALANDRIAWAIT"
  253. 1920 [131] "THE CALANDRIA IS LOADED WITH MANY FUEL  BUNDLES"
  254. 1925 [131] "EACH FUEL BUNDLE CONTAINS SMALL URANIUM PELLETS"
  255. 1930 [131] "LET'S LOOK A LITTLE CLOSER"
  256. 1935 [131] "IT RUNS INTO A URANIUM 235 NUCLEUS LIKE THIS..."
  257. 1940 [131] "A CHAIN REACTION IS CREATED BY THE      NEUTRONS THAT ARE RELEASED"
  258. 1945 [131] "LET'S LOOK AT IT AGAIN"
  259. 1950 [131] "HERE'S HOW ELECTRICITY IS GENERATED"
  260. 1990 [142]
  261. 2000 [143]
  262. 2010 [143]    **********************
  263. 2020 [143]  **** LETTER BY LETTER ****
  264. 2030 [143]    **********************
  265. 2040 [143]
  266. 2045 [153]"CONT";
  267. 2050 [129]I[178]1[164][195](SENT$)
  268. 2060 [153][202](SENT$,I,1);
  269. 2070 [129]J[178]1[164]30:[130]J:[130]I
  270. 2075 [153]
  271. 2080 [142]
  272. 2100 [143]
  273. 2110 [143]   ********************
  274. 2120 [143] **** URANIUM PELLET ****
  275. 2130 [143]   ********************
  276. 2140 [143]
  277. 2150 [153]"LOAD":[151]53281,0
  278. 2160 [153]"          FOR(null)TANTANTANTANSTR$STR$STR$TANTANTANASCTO       "
  279. 2170 [153]"          CHR$            TAB(STR$ASC    "
  280. 2180 [153]"          MID$TANASC(null)TO(null)TOTO(null)       (null)   "
  281. 2190 [153]"           POKE   WAIT     FORVALTANTO     (null)  "
  282. 2200 [153]"           POKE   WAIT        FOR(null)     (null) "
  283. 2210 [153]"           POKE   WAIT    FOR(null)TAB(TAB(TAB(TAB(FN    THEN "
  284. 2220 [153]"           POKE   WAIT   FORTHEN(null)    FN     FN"
  285. 2230 [153]"          (null)TAB(TAB(STR$ASC   (null)(null)  (null)FN     (null)"
  286. 2240 [153]"          (null)    (null)   (null)(null)  FN     PEEK"
  287. 2250 [153]"           (null)    (null)   (null)(null)(null)      THEN"
  288. 2260 [153]"            (null)   /TAB(TAB(TAB(TAB(TAB(        "
  289. 2270 [153]"             (null)                "
  290. 2280 [153]"              (null)               "
  291. 2290 [153]"               VALSTR$ASC            "
  292. 2300 [153]"                  TAB(LENTO         "
  293. 2310 [129]I[178]1[164]40:[151]1023[170]I,224:[151]55295[170]I,15
  294. 2315 [151]2024[171]I,224:[151]56296[171]I,15:[130]I
  295. 2320 [129]I[178]1[164]24:[151]1024[170]39[170]40[172]I,224:[151]55296[170]39[170]40[172]I,15
  296. 2325 [151]2023[171]39[171]40[172]I,224:[151]56295[171]39[171]40[172]I,15:[130]I
  297. 2330 DD[178]1000:[141]4000
  298. 2340 [151]53281,6:[142]
  299. 2400 [143]
  300. 2410 [143]    *********************
  301. 2420 [143] ******  FUEL BUNDLE  ******
  302. 2430 [143]    *********************
  303. 2440 [143]
  304. 2442 [153]"LOAD":[151]53281,6:[151]53280,6
  305. 2445 [153]"              CONTFUEL BUNDLEWAIT"
  306. 2450 [153]"PRINT#               TOTOTOTO
  307. 2455 PRINT"              [206][206][206][206][206][205]
  308. 2460 [153]"             (null)(null)(null)(null)(null)(null)(null)(null)
  309. 2465 PRINT"            [206][206][206][206][206][206][206][206][206][165]
  310. 2470 [153]"           (null)(null)(null)(null)(null)(null)(null)(null)(null)(null)FN
  311. 2475 PRINT"          [206][206][206][206][206][206][206][206][206][206][206][165]
  312. 2480 [153]"         PRINT#(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)FN
  313. 2490 PRINT"        [206][206][206][206][206][206][206][206][206][206][206][206][206]
  314. 2495 [153]"       (null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)
  315. 2500 PRINT"      [206][206][206][206][206][206][206][206][206][206][206][206][206]
  316. 2505 [153]"     (null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)
  317. 2510 PRINT"    [206][206][206][206][206][206][206][206][206][206][206][206][206]
  318. 2515 [153]"   (null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)   TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO
  319. 2520 PRINT"  [206][215][215][209][209][209][215][215][206][206][206][206][206]   [182]                  [181]"
  320. 2523 PRINT"  [215][215][209][209][209][209][209][215][215][206][206][206]    [170][163][163][184][184][163][163][163][163][163][163][163][163][163][163][184][184][163][163][180]"
  321. 2525 PRINT"  [215][215][209][209][209][209][209][215][215][206][206]     [182][163][163][184][184][163][163][163][163][163][163][163][163][163][163][184][184][163][163][181]
  322. 2530 [153]"  (null)(null)(null)(null)(null)(null)(null)(null)(null)(null)      +TAB(TAB(FREFRETAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(FREFRETAB(TAB(SGN
  323. 2535 PRINT"   [215][215][209][209][209][215][215][206]       [182][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][181]
  324. 2540 [153]"    (null)(null)(null)(null)(null)(null)         TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
  325. 2550 FORI=1TO40:POKE1023+I,224:POKE55295+I,5
  326. 2555 POKE2024-I,224:POKE56296-I,5:NEXTI
  327. 2560 FORI=1TO24:POKE1024+39+40*I,224:POKE55296+39+40*I,5
  328. 2565 POKE2023-39-40*I,224:POKE56295-39-40*I,5:NEXTI
  329. 2566 FORI=1TO5:PRINTLEFT$(CD$,9);TAB(23);"            ":DD=75:GOSUB4000
  330. 2567 PRINTLEFT$(CD$,9);TAB(23);"[144]_ FRONT VIEW":GOSUB4000:NEXTI
  331. 2568 FORI=1TO5:PRINTLEFT$(CD$,23);TAB(23);"           ":DD=75:GOSUB4000
  332. 2569 PRINTLEFT$(CD$,23);TAB(23);"[144]^ SIDE VIEW":GOSUB4000:NEXTI
  333. 2575 DD=1000:GOSUB4000
  334. 2580 POKE53281,6:RETURN
  335. 2600 REM
  336. 2610 REM   **********************
  337. 2620 REM **** NEUTRON CLOSE-UP ****
  338. 2630 REM   **********************
  339. 2640 REM
  340. 2650 PRINT"[147]";:POKE53281,11
  341. 2680 PRINT"[158]                                        [146]";
  342. 2690 PRINT"                                        [146]";
  343. 2700 PRINT"              [146]                          [146]";
  344. 2710 PRINT"          [146]                              [146]";
  345. 2720 PRINT"        [146]                                [146]";
  346. 2730 PRINT"       [146]       [129][169]        [223][146]  [165][165][165][146]    [158]       [146]";
  347. 2740 PRINT"      [146]       [129][169]          [223][146] [223] [146][169]     [158]      [146]";
  348. 2750 PRINT"      [146]       [129]  [213][192][201]  [213][192][201]  [146]   [146]      [158]      [146]";
  349. 2760 PRINT"     [146]        [129]            [146]   [146]      [158]      [146]";
  350. 2770 PRINT"     [146]        [129]   [209]    [209]   [146] [169][146][169]       [158]     [146]";
  351. 2780 PRINT"     [146]        [129]            [169][146][169]        [158]     [146]";
  352. 2790 PRINT"    [146]      [129][169]     [164][164][164][164][164][164]   [146][169]         [158]     [146]";
  353. 2800 PRINT"    [146]      [129] [146][169]    [205]    [206]   [146]           [158]    [146]";
  354. 2810 PRINT"    [146]      [129][223] [167]    [205][164][164][206]    [146]           [158]    [146]";
  355. 2820 PRINT"   [146]          [129][223]          [146][169]            [158]   [146]";
  356. 2830 PRINT"   [146]           [129][223]        [146][169]             [158]   [146]";
  357. 2840 PRINT"  [146]             [129]  [146][183][183][183][183] [146]                [158]  [146]";
  358. 2850 PRINT"  [146]             [129]  [146]    [160][146]                [158]  [146]";
  359. 2860 PRINT" [146]              [129][169] [146]     [223][146]                [158] [146]";
  360. 2870 PRINT" [146]           [129][169]    [146]        [223][146]             [158] [146]";
  361. 2880 PRINT"[161]                                      [161][146]"
  362. 2890 SENT$="THERE'S THE CULPRIT!!":GOSUB2000
  363. 2900 SENT$="NEUTRON[146]!!":GOSUB2000
  364. 2910 GOSUB4000
  365. 2920 POKE53281,6:RETURN
  366. 2950 REM
  367. 2960 REM   ************************
  368. 2970 REM ** EXPLAIN CHAIN REACTION **
  369. 2980 REM   ************************
  370. 2990 REM
  371. 3000 GOSUB 1092
  372. 3010 SENT$="[147] THE RELEASED NEUTRONS BOUNCE AROUND":GOSUB2000
  373. 3020 SENT$=" IN THE MODERATOR OR HEAVY WATER TO":GOSUB2000
  374. 3030 SENT$=" SLOW THEM DOWN. ":GOSUB2000:DD=250:GOSUB4000
  375. 3035 SENT$=" THIS INCREASES THE CHANCE OF THEM":GOSUB2000
  376. 3040 SENT$=" COLLIDING INTO ANOTHER NEUTRON.":GOSUB2000:GOSUB4000
  377. 3050 SENT$=" HOWEVER, SOME NEUTRONS MIGHT BE WASTED":GOSUB2000
  378. 3060 SENT$=" BY BEING ABSORBED BY A NUCLEUS OR THE":GOSUB2000
  379. 3070 SENT$=" MODERATOR.":GOSUB 2000:GOSUB4000
  380. 3080 RETURN
  381. 3100 REM
  382. 3110 REM   ***********************
  383. 3120 REM ** PRODUCING ELECTRICITY **
  384. 3130 REM   ***********************
  385. 3140 REM
  386. 3145 PRINT"[147]":POKE53281,5
  387. 3150 PRINT"      [151][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  388. 3160 PRINT"     [151][170][154][166][166][166][166][166][166][166][166][166][166][166][166][166][151][181]"
  389. 3170 PRINT"     [151][170][154][166][151][207][183][183][183][183][183][183][183][183][208][154][166][166][151][204]    [164][164][164][164][164][164]"
  390. 3180 PRINT"   [151][175][175][186][154][166][151][204][175][175]      [186][154][220][151][187][161][208][164][164][207][172][172][172][172][172][172][208]"
  391. 3190 PRINT"  [151][170][154][166][166][166][166][166][166][166][151][165]     [165][188][188][188][146][162][162][162][162]      [146][186]"
  392. 3200 PRINT" [151][175][186][154][162][185][162][175][185][185][162][151][204][175]    [165][172][172][172][162][162][162][162]      [146][167][183][183][158][205]"
  393. 3210 PRINT"[151][170]           [146][151][165]   [165] [190][161]    [188][188][188][188][188][188][167]  [158][206]"
  394. 3220 PRINT"[151][170] [146][151][207][154]       [146][151][208] [146][151][165]   [165]             [167] [158][206][205]"
  395. 3230 PRINT"[151][170] [146][151][165]       [170] [146][151][165]  [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][158][167]  [205]"
  396. 3240 PRINT"[151][170] [146][151][204][156]       [146][151][186] [146][151][165]                  [158][206]  [206][165]"
  397. 3250 PRINT"[151][170]   [168][168][168][168][168]   [146][151][165]                 [158] [165] [206] [165]"
  398. 3260 PRINT"[151][170] [146][151][207][156]       [146][151][208] [146][151][165]                 [158] [165][206]  [205]"
  399. 3270 PRINT"[151][170] [146][151][204][156]       [146][151][186] [146][151][165]                 [158][206] [205]   [205]"
  400. 3280 PRINT"[151][170]   [168][168][168][168][168]   [146][151][165]                [158][206]  [206]   [206][205]"
  401. 3290 PRINT" [163][163][156]       [146][151][163][163]                [158][206][165]  [165]   [165][167]"
  402. 3300 PRINT"   [163][163][163][163][163][163][163]                 [158][167] [205]    [158] [206][205]"
  403. 3310 PRINT"                           [158][206][165]
  404. 3312 [129]I[178]1[164]5:[153]" ":[129]J[178]1[164]150:[130]J
  405. 3315 [153]"STOP^":[129]J[178]1[164]150:[130]J:[130]I
  406. 3320 SENT$[178]"   STOPTHE REACTOR HEATS THE HEAVY WATER":[141]2000
  407. 3325 [153]" "
  408. 3330 [129]I[178]1[164]5:[153]" ":[129]J[178]1[164]150:[130]J
  409. 3335 [153]"STOP_":[129]J[178]1[164]150:[130]J:[130]I
  410. 3340 SENT$[178]"   STOPORDINARY WATER IS TURNED TO STEAM":[141]2000
  411. 3350 [153]" "
  412. 3360 [129]I[178]1[164]5:[153]"";[163]18);" ":[129]J[178]1[164]150:[130]J
  413. 3365 [153]"";[163]18);"STOP^":[129]J[178]1[164]150:[130]J:[130]I
  414. 3370 SENT$[178]"     STOPSTEAM PRESSURE DRIVES TURBINE  ":[141]2000
  415. 3380 [153]"";[163]18);" "
  416. 3390 [129]I[178]1[164]5:[153]"";[163]27);" ":[129]J[178]1[164]150:[130]J
  417. 3395 [153]"";[163]27);"STOP^":[129]J[178]1[164]150:[130]J:[130]I
  418. 3400 SENT$[178]"       STOPTURBINE DRIVES GENERATOR    ":[141]2000
  419. 3410 [153]"";[163]27);" "
  420. 3420 [129]I[178]1[164]5:[153]"";[163]36);" ":[129]J[178]1[164]150:[130]J
  421. 3425 [153]"";[163]36);"STOP_":[129]J[178]1[164]150:[130]J:[130]I
  422. 3430 SENT$[178]"        STOPELECTRICITY IS PRODUCED    ":[141]2000
  423. 3440 [153]"";[163]36);" "
  424. 3450 [153]"CONT":[151]53281,6:[142]
  425. 3500 [143]
  426. 3510 [143]    *******************
  427. 3520 [143] ******  CALANDRIA  ******
  428. 3530 [143]    *******************
  429. 3540 [143]
  430. 3545 [153]"LOAD":[151]53281,13
  431. 3550 [153]"          PRINT#ANDANDANDANDSQRCONTSPC(SPC(SPC(PRINT#(null)ANDANDANDAND
  432. 3555 PRINT"         [152][167][154][166][166][166][166][166][166][166][166][166][166][166][166][166][152][165]
  433. 3560 [153]"         PRINT#THENCONTSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(PRINT#FN
  434. 3565 PRINT"         [152][167][154][162][185][175][185][185][162][185][185][175][175][162][162][185][152][165]
  435. 3570 [153]"       PRINT#ANDANDSQRCONT             WAITPRINT#(null)ANDAND
  436. 3575 PRINT"      [182]                   [146][152][181]
  437. 3580 [153]"      ABS WAITPRINT#(null)(null)CONT             WAITPRINT#(null)(null) WAITPRINT#INT
  438. 3585 PRINT"      [182] [146][152][165] [183][183][183][183][183][183][183][183][183][183][183][183][183] [167] [146][152][181]
  439. 3590 [153]"      ABS WAITPRINT#FN CLRTOTOTOTOTOTOTOTOTOTOTOTOTO PRINT#THEN WAITPRINT#INT
  440. 3595 PRINT"      [182] [146][152][204][175][156]             [146][152][175][186] [146][152][181]
  441. 3600 [153]"      ABS    NOTNOTNOT NOTNOTNOT NOTNOTNOT    WAITPRINT#INT
  442. 3605 PRINT"      [182] [146][152][207][183][156]             [146][152][183][208] [146][152][181]
  443. 3610 [153]"      ABS WAITPRINT#(null)ANDCLR             WAITPRINT#ANDSQR WAITPRINT#INT
  444. 3615 PRINT"      [182]    [168][168][168] [168][168][168] [168][168][168]    [146][152][181]
  445. 3620 [153]"      ABS WAITPRINT#(null)USRCLR             WAITPRINT#USR(null) WAITPRINT#INT
  446. 3625 PRINT"      [182] [146][152][204][175][156]             [146][152][175][186] [146][152][181]
  447. 3630 [153]"      ABS    NOTNOTNOT NOTNOTNOT NOTNOTNOT    WAITPRINT#INT
  448. 3635 PRINT"      [182] [146][152][207][183][156]             [146][152][183][208] [146][152][181]
  449. 3640 [153]"      ABS WAITPRINT#(null)ANDCLR             WAITPRINT#ANDSQR WAITPRINT#INT
  450. 3645 PRINT"      [182]    [168][168][168] [168][168][168] [168][168][168]    [146][152][181]
  451. 3650 [153]"       USRUSRUSRCLR             WAITPRINT#USRUSRUSR
  452. 3655 DD=500:GOSUB4000
  453. 3657 PRINT"";TAB(12);"[129]CALANDRIA":GOSUB4000
  454. 3660 PRINT"";TAB(12);"^[157]FUEL BUNDLE":GOSUB4000
  455. 3670 PRINT"";TAB(23);"[156]_HEAVY WATER[157][157][157][157][157][157][157][157][157][157]MODERATOR":GOSUB4000
  456. 3680 PRINT"";TAB(26);"_HEAVY WATER[157][157][157][157][157][157][157][157][157]COOLANT":GOSUB4000
  457. 3690 PRINT"";TAB(23);"[154]_LIGHT WATER":GOSUB4000
  458. 3695 PRINT"";TAB(23);"[154]_STEAM":GOSUB4000
  459. 3700 POKE53281,6:PRINT"[154]":RETURN
  460. 4000 REM
  461. 4010 REM     **************
  462. 4020 REM  ******  DELAY ******
  463. 4030 REM     **************
  464. 4040 REM
  465. 4050 FORT=1TODD:GETD$:IFD$=""THENNEXTT
  466. 4060 RETURN
  467. 5000 REM WRITTEN BY DEREK LEE
  468. 5010 REM WITH THANKS TO CARY HEATHER
  469.